 subroutine calciabci_ri2(r1, r2, t1, t2, icore, rivv, rivo, rioo, ig, giop)
 use mod_iop
 use mod_size
 use mod_orbit
 use mod_ioff 
 real*8, intent(in) :: r1(*), r2(*), t1(*), t2(*)
 real*8, intent(in) :: rivv(*), rivo(*), rioo(*) 
 real*8, intent(in) :: icore(*), ig(*)
 integer, intent(in) :: giop(5)
 !
 real*8 tt(20), rt(20)
!---------------------------------------------------------
 call effectt2(t2, t1,  icore, 1.d0, no, nv)
 call r2abij_t2efij_t1bm_iefam_ri2(r2, t2, t1, icore, -0.5d0, &
                              rivv, rivo, rioo, ig, giop)
 call effectt2(t2, t1,  icore, -1.d0, no, nv)
!------
 return
 end
